home *** CD-ROM | disk | FTP | other *** search
/ Clinton - Portrait of Victory / PORTRAIT OF VICTORY.BIN / cltpc256 / eagle41.txt < prev    next >
Text File  |  1992-12-22  |  6KB  |  282 lines
  1. ; Photo Album
  2. clearscr 0
  3. pload @title 1
  4. palette 1
  5. putup 23 433 p1
  6. pfree 1
  7. pload ebpaim 1
  8. putup 603 0 p1
  9. pfree 1
  10. fload ibm16 1
  11. set dnum 1
  12. set xd 607+((34-width(@dnum))/2)
  13. set xt 607+((34-width(@tnum))/2)
  14. color 126
  15. text @xd 455 @dnum
  16. text 617 441 "of"
  17. text @xt 425 @tnum
  18. set pnum @first
  19. pload "ep"$@pnum 1
  20. set px (602-p1->xsize)/2
  21. set py (428-p1->ysize)/2
  22. putup @px @py p1
  23. pfree 1
  24.  
  25. input1:
  26. waitkey
  27. getkey k
  28. if @k==chr(72)$chr(1)||@k==chr(73)$chr(1) ;UPARROW or PGUP
  29.   color 0
  30.   rect 0 0 600 425
  31.   rect 607 455 637 470
  32.   if @pnum<@last
  33.     set pnum @pnum+1
  34.     set dnum @dnum+1
  35.   else
  36.     set pnum @first
  37.     set dnum 1
  38.   endif
  39.   set xd 607+((34-width(@dnum))/2)
  40.   color 126
  41.   text @xd 455 @dnum
  42.   pload "ep"$@pnum 1
  43.   set px (602-p1->xsize)/2
  44.   set py (428-p1->ysize)/2
  45.   putup @px @py p1
  46.   pfree 1
  47.   goto input1
  48. else
  49.   if @k==chr(80)$chr(1)||@k==chr(81)$chr(1) ;DOWNARROW or PGDN
  50.     color 0
  51.     rect 0 0 600 425
  52.     rect 607 455 637 470
  53.     if @pnum>@first
  54.       set pnum @pnum-1
  55.       set dnum @dnum-1
  56.     else
  57.       set pnum @last
  58.       set dnum @tnum
  59.     endif
  60.     set xd 607+((34-width(@dnum))/2)
  61.     color 126
  62.     text @xd 455 @dnum
  63.     pload "ep"$@pnum 1
  64.     set px (602-p1->xsize)/2
  65.     set py (428-p1->ysize)/2
  66.     putup @px @py p1
  67.     pfree 1
  68.     goto input1
  69.   else
  70.     if @k==chr(101)||@k==chr(69)
  71.       pload edpaxit 1
  72.       set px (602-p1->xsize)/2
  73.       set py (428-p1->ysize)/2
  74.       putup @px @py p1
  75.       input4:
  76.       waitkey
  77.       getkey k
  78.       if @k==chr(13)
  79.         exit
  80.       else
  81.         if @k==chr(27)
  82.           pload "ep"$@pnum 1
  83.           set px (602-p1->xsize)/2
  84.           set py (428-p1->ysize)/2
  85.           putup @px @py p1
  86.           pfree 1
  87.           goto input1
  88.         else
  89.           goto input4
  90.         endif
  91.       endif
  92.     else
  93.       if @k==chr(103)||@k==chr(71)
  94.  
  95.         again:
  96.         set qflag 0
  97.         pload ednum 1
  98.         set px (602-p1->xsize)/2
  99.         set py (428-p1->ysize)/2
  100.         putup @px @py p1
  101.         pfree 1
  102.         set str ""
  103.         set savx 290
  104.         set savy 215
  105.         getstr 3
  106.         set tmpnum left(@0,len(@0)-1)
  107.         if left(@tmpnum,1)==0&&len(@tmpnum)==3
  108.           set tmpnum mid(@tmpnum,2,len(@tmpnum)-1)
  109.         endif
  110.         if left(@tmpnum,1)==0&&len(@tmpnum)==2
  111.             set tmpnum right(@tmpnum,1)
  112.         endif
  113.         if left(@tmpnum,1)==0&&len(@tmpnum)==1
  114.             set tmpnum ""
  115.         endif
  116.         set qflag right(@0,1)
  117.         if @qflag==0
  118.           if @tmpnum>@tnum||@tmpnum==""
  119.             pload "ep"$@pnum 1
  120.             set px (602-p1->xsize)/2
  121.             set py (428-p1->ysize)/2
  122.             putup @px @py p1
  123.             pfree 1
  124.             pload edwnum 1
  125.             set px (602-p1->xsize)/2
  126.             set py (428-p1->ysize)/2
  127.             putup @px @py p1
  128.             pfree 1
  129.             input2:
  130.             waitkey
  131.             getkey k
  132.             if @k==chr(13)
  133.               goto again
  134.             else
  135.               goto input2
  136.             endif
  137.           else
  138.             set dnum @tmpnum
  139.             set pnum (@first-1)+@dnum
  140.           endif
  141.           color 0
  142.           rect 0 0 600 425
  143.           rect 607 455 637 470
  144.           set xd 607+((34-width(@dnum))/2)
  145.           color 126
  146.           text @xd 455 @dnum
  147.           pload "ep"$@pnum 1
  148.           set px (602-p1->xsize)/2
  149.           set py (428-p1->ysize)/2
  150.           putup @px @py p1
  151.           pfree 1
  152.           goto input1
  153.         else
  154.           pload "ep"$@pnum 1
  155.           set px (602-p1->xsize)/2
  156.           set py (428-p1->ysize)/2
  157.           putup @px @py p1
  158.           pfree 1
  159.           goto input1
  160.         endif
  161.       else
  162.         if @k==chr(104)||@k==chr(72)
  163.           set num 1
  164.           pload edpahelp 1
  165.           set px (602-p1->xsize)/2
  166.           set py (428-p1->ysize)/2
  167.           putup @px @py p1
  168.           pfree 1
  169.           hlp1:
  170.           color 0
  171.           rect 115 310 485 140
  172.           fload ibm8 1
  173.           fgaps 1 4 2
  174.           set buf readfile(palbhlp$@num$.doc)
  175.           window 120 300 480 140
  176.           color 1
  177.           text @@buf
  178.           . farfree(@buf)
  179.           window
  180.           text 265 155 "Page "$@num$" of 2"
  181.           text 160 145 "Press <PGUP> for next or <PGDN> for prior."
  182.           ffree 1
  183.           hlp2:
  184.           waitkey
  185.           getkey k
  186.           if @k==chr(13)
  187.             pload "ep"$@pnum 1
  188.             set px (602-p1->xsize)/2
  189.             set py (428-p1->ysize)/2
  190.             putup @px @py p1
  191.             pfree 1
  192.             ffree 1
  193.             fload ibm16 1
  194.             goto input1
  195.           else
  196.             if @k==chr(73)$chr(1)||@k==chr(72)$chr(1)
  197.               if @num==2
  198.                 set num 1
  199.                 goto hlp1
  200.               else
  201.                 set num @num+1
  202.                 goto hlp1
  203.               endif
  204.             else
  205.               if @k==chr(81)$chr(1)||@k==chr(80)$chr(1)
  206.                 if @num==1
  207.                   set num 2
  208.                   goto hlp1
  209.                 else
  210.                   set num @num-1
  211.                   goto hlp1
  212.                 endif
  213.               else
  214.                 goto hlp2
  215.               endif
  216.             endif
  217.           endif
  218.         else
  219.           if @k==chr(109)||@k==chr(77)
  220.             clearscr 0
  221.             pload ebkg 1
  222.             palette 1
  223.             pfade 0 1
  224.             pfree 1
  225.             link @back
  226.           else
  227.             goto input1
  228.           endif
  229.         endif
  230.       endif
  231.     endif
  232.   endif
  233. endif
  234.  
  235. waitkey
  236. exit
  237.  
  238. getstr:
  239.   color 255
  240.   set space off
  241.   set a ""
  242. ;  text @str
  243.   text @savx,@savy,@str
  244. lp:
  245.   set a ""
  246.   cursor
  247.   waitkey
  248.   cursor
  249.   getkey a
  250. if asc(@a)>=48&&len(@str)<3&&asc(@a)<=57
  251.   set str @str$@a
  252.   text @a
  253.   goto lp
  254. else
  255.   if @a==chr(8)
  256.     if @str==""               ;;;;@len(@str)==0
  257.       goto lp
  258.     else
  259.       color 0
  260.       set cwd width(right(@str,1))
  261.       rect 290+width(@str)-@cwd @texty 290+width(@str) @texty+14
  262.       set lnstr len(@str)-1
  263.       set str left(@str,@lnstr)
  264.       goto getstr
  265.     endif
  266.   else
  267.     if @a==chr(13)
  268.         set qflag 0
  269.         goto dne1
  270.     else
  271.       if @a==chr(27)
  272.         set qflag 1
  273.         goto dne1
  274.       else
  275.         goto lp
  276.       endif
  277.     endif
  278.   endif
  279. endif
  280. dne1:
  281. return @str$@qflag
  282.